home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / f68k.zoo / oldsrc / case.exp next >
Encoding:
Text File  |  1992-04-21  |  553 b   |  26 lines
  1. \ ***************************************
  2. \ *   CASE-STRUKTUR                     *
  3. \ ***************************************
  4. : pairs?        [ assembler ] pairs? [ forth ] ;
  5.  
  6. : begin-case    postpone >r 5 0 ; immediate
  7.  
  8. : case     1+
  9.         postpone r@ postpone = postpone ?branch >mark 6 ; immediate
  10.  
  11. : break         6 pairs?
  12.                 postpone branch >mark swap >resolve -rot ; immediate
  13.  
  14. : default       ; immediate
  15.  
  16. : end-case      swap 5 pairs?
  17.                 0 DO >resolve LOOP postpone rdrop ; immediate
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.